home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 November / Chip_1999-11_cd.bin / tema / GoLive / golive4try.exe / GoLive 4.0 Tryout / data1.cab / Apps / PDFL40.DLL / PSPROCSET / 19 < prev    next >
Text File  |  1999-08-05  |  6KB  |  258 lines
  1. %%BeginResource: procset pdflev3
  2. %%Version: 4.0 1
  3. %%Copyright: Copyright 1987-1999 Adobe Systems Incorporated. All Rights Reserved.
  4. %%LanguageLevel: 3
  5. %%Title: PDF operators, with code specific for Level 3
  6. /_defaulthalftone currenthalftone dd
  7. /_defaultblackgeneration currentblackgeneration dd
  8. /_defaultundercolorremoval currentundercolorremoval dd
  9. /_defaultcolortransfer [currentcolortransfer] dd
  10. /_processColors
  11. currentpagedevice /ProcessColorModel getifknown
  12. { << /DeviceGray [/Gray]
  13. /DeviceRGB [/Red /Green /Blue]
  14. /DeviceCMYK [/Cyan /Magenta /Yellow /Black]
  15. /DeviceCMY [/Cyan /Magenta /Yellow]
  16. /DeviceRGBK [/Red /Green /Blue /Black]
  17. >> exch getifknown {} {[]} ifelse }
  18. {[]}
  19. ifelse
  20. def
  21. /initialize {
  22. _defaulthalftone sethalftone
  23. /_defaultblackgeneration load setblackgeneration
  24. /_defaultundercolorremoval load setundercolorremoval
  25. _defaultcolortransfer aload pop setcolortransfer
  26. false setoverprint
  27. } bd
  28. /terminate { } bd
  29. /m/moveto ld
  30. /l/lineto ld
  31. /c/curveto ld
  32. /setSA/setstrokeadjust ld
  33. /sh
  34. { dup /DataSource known
  35. { dup begin
  36. DataSource type /filetype eq { DataSource resetfile } if
  37. end
  38. } if
  39. shfill
  40. } bd
  41. /defineRes/defineresource ld
  42. /findRes/findresource ld
  43. currentglobal
  44. true systemdict /setglobal get exec
  45. [/Function /ExtGState /Form /Shading]
  46. { /Generic /Category findresource dup length dict copy /Category defineresource pop }
  47. forall
  48. systemdict /setglobal get exec
  49. /ri {
  50. /findcolorrendering isdefined?
  51. {
  52. mark exch
  53. findcolorrendering
  54. counttomark 2 eq
  55. { type /booleantype eq
  56. { dup type /nametype eq
  57. { dup /ColorRendering resourcestatus
  58. { pop pop
  59. dup /DefaultColorRendering ne
  60. {
  61. /ColorRendering findresource
  62. setcolorrendering
  63. } if
  64. } if
  65. } if
  66. } if
  67. } if
  68. cleartomark
  69. }
  70. { pop
  71. } ifelse
  72. } bd
  73. /_sfcs { _fcs setcolorspace } bind dd
  74. /_sscs { _scs setcolorspace } bind dd
  75. /_sfc {
  76. _fc aload pop
  77. _fp null eq
  78. { _op?
  79. { _opmode 1 eq
  80. { _fcs GetCSFamily /DeviceCMYK eq {DoNonZeroOverprint} if
  81. } if
  82. } if
  83. setcolor
  84. _op? setoverprint
  85. }
  86. { _fp setpattern }
  87. ifelse
  88. } bind dd
  89. /_ssc {
  90. _sc aload pop
  91. _sp null eq
  92. { _OP?
  93. { _opmode 1 eq
  94. { _scs GetCSFamily /DeviceCMYK eq {DoNonZeroOverprint} if
  95. } if
  96. } if
  97. setcolor
  98. _OP? setoverprint
  99. }
  100. { _sp setpattern }
  101. ifelse
  102. } bind dd
  103. /CMYKDeviceNColorspaces [
  104. [/Separation /None /DeviceCMYK {0 0 0}]     bind
  105. [/Separation (Black)
  106. /DeviceCMYK {0 0 0 4 -1 roll}]  bind
  107. [/Separation (Yellow)
  108. /DeviceCMYK {0 0 3 -1 roll 0}]  bind
  109. [/DeviceN [(Yellow) (Black)]
  110. /DeviceCMYK {0 0 4 2 roll}]     bind
  111. [/Separation (Magenta)
  112. /DeviceCMYK {0 exch 0 0}]  bind
  113. [/DeviceN [(Magenta) (Black)]
  114. /DeviceCMYK {0 3 1 roll 0 exch}]  bind
  115. [/DeviceN [(Magenta) (Yellow)]
  116. /DeviceCMYK {0 3 1 roll 0}]      bind
  117. [/DeviceN [(Magenta) (Yellow) (Black)]
  118. /DeviceCMYK {0 4 1 roll}]   bind
  119. [/Separation (Cyan)
  120. /DeviceCMYK {0 0 0}]   bind
  121. [/DeviceN [(Cyan) (Black)]
  122. /DeviceCMYK {0 0 3 -1 roll}]  bind
  123. [/DeviceN [(Cyan) (Yellow)]
  124. /DeviceCMYK {0 exch 0}]     bind
  125. [/DeviceN [(Cyan) (Yellow) (Black)]
  126. /DeviceCMYK {0 3 1 roll}]  bind
  127. [/DeviceN [(Cyan) (Magenta)]
  128. /DeviceCMYK {0 0}]  bind
  129. [/DeviceN [(Cyan) (Magenta) (Black)]
  130. /DeviceCMYK {0 exch}]  bind
  131. [/DeviceN [(Cyan) (Magenta) (Yellow)]
  132. /DeviceCMYK {0}]  bind
  133. [/DeviceCMYK]  bind
  134. ] def
  135. /DoNonZeroOverprint {
  136. 6 dict begin
  137. /kk exch def
  138. /yy exch def
  139. /mm exch def
  140. /cc exch def
  141. /sum 0 def
  142. cc 0 ne {/sum sum 2#1000 or def cc} if
  143. mm 0 ne {/sum sum 2#0100 or def mm} if
  144. yy 0 ne {/sum sum 2#0010 or def yy} if
  145. kk 0 ne {/sum sum 2#0001 or def kk} if
  146. CMYKDeviceNColorspaces sum get setcolorspace
  147. sum 0 eq {0} if
  148. end
  149. } bd
  150. /scn {
  151. dup type /dicttype eq
  152. { dup /_fp xdd
  153. dup /PatternType get 1 eq
  154. { /PaintType get 1 eq
  155. { /_fc _fillColors 0 get dd ilp }
  156. { /_fc _fillColors
  157. _fcs 1 get
  158. GetComps get dd
  159. sc
  160. }
  161. ifelse
  162. }
  163. { pop /_fc _fillColors 0 get dd ilp }
  164. ifelse
  165. }
  166. { sc }
  167. ifelse
  168. } bd
  169. /SCN {
  170. dup type /dicttype eq
  171. { dup /_sp xdd
  172. dup /PatternType get 1 eq
  173. { /PaintType get 1 eq
  174. { /_sc _strokeColors 0 get dd ilp }
  175. { /_sc _strokeColors _scs 1 get GetComps get dd
  176. SC
  177. }
  178. ifelse
  179. }
  180. { pop /_sc _strokeColors 0 get dd ilp }
  181. ifelse
  182. }
  183. { SC }
  184. ifelse
  185. } bd
  186. /gs {
  187. begin
  188. /SA here { setstrokeadjust } if
  189. /OP here { /_OP? xdd } if
  190. /op here { /_op? xdd }
  191. { /OP here { /_op? xdd } if }
  192. ifelse
  193. /OPM here { /_opmode xdd } if
  194. /BG here { setblackgeneration } if
  195. /UCR here { setundercolorremoval } if
  196. /SM here { setsmoothness } if
  197. /FL here { i } if
  198. /RI here { ri } if
  199. /TR here
  200. {
  201. dup xcheck
  202. { settransfer }
  203. { aload pop setcolortransfer }
  204. ifelse
  205. } if
  206. /sethalftonephase isdefined? { /HTP here { sethalftonephase } if } if
  207. /HT here { sethalftone } if
  208. currentdict gsDI
  209. end
  210. } bd
  211. /f {
  212. { { sfc fill }
  213. {clipsave sfc fill cliprestore clip newpath icl ilp}
  214. {clipsave sfc fill cliprestore eoclip newpath icl ilp}
  215. } _doClip get exec
  216. } bd
  217. /f* {
  218. { { sfc eofill }
  219. {clipsave sfc eofill cliprestore clip newpath icl ilp}
  220. {clipsave sfc eofill cliprestore eoclip newpath icl ilp}
  221. } _doClip get exec
  222. } bd
  223. /S {
  224. { { ssc stroke }
  225. {clipsave ssc stroke cliprestore clip newpath icl ilp}
  226. {clipsave ssc stroke cliprestore eoclip newpath icl ilp}
  227. } _doClip get exec
  228. } bd
  229. /rf {
  230. { { sfc rectfill }
  231. {clipsave sfc rectfill cliprestore clip newpath icl ilp}
  232. {clipsave sfc rectfill cliprestore eoclip newpath icl ilp}
  233. } _doClip get exec
  234. } bd
  235. /every? {
  236. true
  237. 3 2 roll
  238. { 2 index exec not {pop false exit} if } forall
  239. exch pop
  240. } bd
  241. /knownColorants? {
  242. 3 dict begin
  243. /colorants exch def
  244. {
  245. /DeviceN /ColorSpaceFamily findresource pop
  246. /cpd currentpagedevice def
  247. /dc 10 dict def
  248. cpd /SeparationColorNames getifknown
  249. { { dc exch 0 put } forall } if
  250. _processColors { dc exch 0 put } forall
  251. colorants {dc exch known} every?
  252. } stopped
  253. { false }
  254. if
  255. end
  256. } bind def
  257. %%EndResource
  258.